home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 4 / 004.d81 / reel facts (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  24KB  |  500 lines
  1. 2 rem *** translated for the 64 by donns k. woody ***
  2. 3 poke783,peek(783)and254
  3. 4 poke53272,21:printchr$(8)
  4. 10 ll$="----------------------------------------":nn=55:goto499
  5. 20 poke781,q:poke782,w:sys65520:return
  6. 30 poke781,23:poke782,5:sys65520:print"[144]press <space bar> to continue"
  7. 31 poke198,0:wait198,1:geta$:return
  8. 40 printchr$(147):print"[144]academy awards - "xx$:printll$"":return
  9. 100 printchr$(147):input"to search: ";s$:n1=len(s$):c=0
  10. 110 ii=0:forl=1to6:ifss(l)=0then270
  11. 111 ifl=1thenvv=1
  12. 120 ht=0:fori=1tonn:jx=0:j=0:k=0:
  13. 130 q=1:w=0:gosub20:ix=i+1927:print"searching year "ix
  14. 140 ifi=1thenii=ii+1:vv=2:q=vv:w=0:gosub20:print"[144]-------"sx$(l)"-------"
  15. 150 onlgoto160,170,180,190,200,210
  16. 160 x$=movie$(i):goto220
  17. 170 x$=di$(i):goto220
  18. 180 x$=a1$(i):goto220
  19. 190 x$=a2$(i):goto220
  20. 200 x$=s1$(i):goto220
  21. 210 x$=s2$(i)
  22. 220 n2=len(x$):forj=1ton2-n1+1
  23. 230 ifmid$(x$,j,n1)=s$thengoto310
  24. 240 nextj
  25. 250 nexti
  26. 260 ifht=0thenii=ii+1:vv=vv+2:q=vv:w=0:gosub20:print"no ";sx$(l)
  27. 265 gosub30:printchr$(147):vv=2
  28. 270 nextl
  29. 300 return
  30. 310 ht=1:ii=ii+1:ifl=1thenvv=vv+1:goto320
  31. 315 vv=vv+2
  32. 320 q=vv:w=0:gosub20:ix=i+1927:printix;": ";x$
  33. 330 ifl=1andvv=20thengoto340
  34. 331 ifl>1andvv=20thengoto340
  35. 332 goto250
  36. 340 gosub30:printchr$(147):vv=2:q=vv:w=0:gosub20
  37. 350 print"[144]-------"sx$(l)"-------":goto250
  38. 499 dima$(13)
  39. 500 a$(1)="[169] [223][157][157][157] [146]  [157][157][157]   [157][157][157] [146]  [146]":rem a
  40. 505 a$(10)=" [157] [157] [157]   [146]":rem l
  41. 510 a$(2)="[169]  [157][157][157] [157] [157][146][223]  [146]":rem c
  42. 515 a$(11)="   [157][157][157] [146][162][187][157][157][157] [162][146][190][157][157][157] [146]":rem f
  43. 520 a$(3)="  [223][157][157][157] [146]  [157][157][157] [146]  [157][157][157]  [146][169]":rem d
  44. 525 a$(12)="   [157][157][157][146]  [157][157][146]  [157][157][146]  [146]":rem t
  45. 530 a$(4)="   [157][157][157] [146][162][187][157][157][157] [162][146][190][157][157][157]   [146]":rem e
  46. 535 a$(13)=" [223][146]  [157][157][157][157]  [223] [157][157][157][157] [146][223]  [157][157][157][157] [146] [223] [146]":rem n
  47. 540 a$(5)=" [223][169] [157][157][157][157]    [157][157][157][157] [146][223][169] [157][157][157][157] [146]   [146]":rem m
  48. 550 a$(6)="[169]  [157][157][157] [146][162][162][157][157][157][162][162] [157][157][157]  [146][169]":rem s
  49. 560 a$(7)=" [146]   [157][157][157][157] [146]   [157][157][157][157] [169][223] [157][157][157][157][146][223][169][223][169]":rem w
  50. 570 a$(8)=" [146]  [157][157][157][146][223][162][169][157][157][157]  [157][157][146]  [146]":rem y
  51. 575 a$(9)="  [223][157][157][157] [146]  [157][157][157]  [146][169][157][157][157] [146][223][223][146]":rem r
  52. 580 printchr$(147):poke53281,1
  53. 581 q=1:w=1:gosub20:print""a$(9);
  54. 582 q=1:w=5:gosub20:print"[144]"a$(4);
  55. 583 q=1:w=9:gosub20:print"[159]"a$(4);
  56. 584 q=1:w=13:gosub20:print"[156]"a$(10);
  57. 585 q=1:w=20:gosub20:print""a$(11);
  58. 586 q=1:w=24:gosub20:print"[158]"a$(1);
  59. 587 q=1:w=28:gosub20:print"[129]"a$(2);
  60. 588 q=1:w=32:gosub20:print"[149]"a$(12);
  61. 589 q=1:w=36:gosub20:print"[152]"a$(6)
  62. 590 q=6:w=6:gosub20:print""a$(1);
  63. 600 q=6:w=10:gosub20:print"[156]"a$(2);
  64. 610 q=6:w=14:gosub20:print""a$(1);
  65. 620 q=6:w=18:gosub20:print"[158]"a$(3);
  66. 630 q=6:w=22:gosub20:print"[149]"a$(4);
  67. 640 q=6:w=26:gosub20:print"[150]"a$(5);
  68. 650 q=6:w=31:gosub20:print"[153]"a$(8)
  69. 660 q=11:w=8:gosub20:print"[155]"a$(1);
  70. 670 q=11:w=12:gosub20:print"[154]"a$(7);
  71. 680 q=11:w=17:gosub20:print"[153]"a$(1);
  72. 690 q=11:w=21:gosub20:print"[152]"a$(9);
  73. 700 q=11:w=25:gosub20:print"[151]"a$(3);
  74. 710 q=11:w=29:gosub20:print"[149]"a$(6)
  75. 720 q=17:w=12:gosub20:print"[153]by charles brown"
  76. 730 q=20:w=1:gosub20:print"[155]translated for the 64 by donna k. woody"
  77. 740 q=23:w=5:gosub20:print"[144].........please wait........."
  78. 870 dimmovie$(nn),di$(nn),a1$(nn),a2$(nn),s1$(nn),s2$(nn)
  79. 880 fori=1tonn:readmovie$(i):next
  80. 890 fori=1tonn:readdi$(i):next
  81. 900 fori=1tonn:reada1$(i):next
  82. 910 fori=1tonn:reada2$(i):next
  83. 920 fori=1tonn:reads1$(i):next
  84. 930 fori=1tonn:reads2$(i):next
  85. 940 fori=1to6:readsx$(i):next
  86. 941 gosub30
  87. 950 printchr$(147)
  88. 955 poke53281,5:poke53280,1:printchr$(5)
  89. 960 q=4:w=13:gosub20: print"academy awards"
  90. 970 q=10:w=10:gosub20:print"[144]<s> search for a particular"
  91. 975 q=11:w=14:gosub20:print"word or name"
  92. 980 q=13:w=10:gosub20:print"[144]<l> list award winners by"
  93. 985 q=14:w=14:gosub20:print"category or year"
  94. 990 q=23:w=10:gosub20:print"[144]<*> to quit"
  95. 1000 q=18:w=14:gosub20:print"choice?[160]":poke198,0:wait198,1:geta$
  96. 1010 ifa$="s"then1050
  97. 1020 ifa$="l"then1170
  98. 1030 ifa$="*"then1040
  99. 1035 goto1000
  100. 1040 printchr$(147):goto63000
  101. 1050 fori=1to6:ss(i)=0:nexti:ns=0
  102. 1060 printchr$(147):q=0:w=18:gosub20:print"search ":printll$
  103. 1070 q=4:w=3:gosub20:print"[144]<*> - exit"
  104. 1072 q=6:w=4:gosub20:print"[144]1  - movie"
  105. 1075 q=7:w=4:gosub20:print"[144]2  - director"
  106. 1077 q=8:w=4:gosub20:print"[144]3  - actor"
  107. 1080 q=9:w=4:gosub20:print"[144]4  - actress"
  108. 1082 q=10:w=4:gosub20:print"[144]5  - supporting actor"
  109. 1085 q=11:w=4:gosub20:print"[144]6  - supporting actress"
  110. 1090 q=23:w=3:gosub20:print"[144]<return> to run search"
  111. 1100 q=13:w=3:gosub20:print"file to search...";:poke198,0:wait198,1:getff$:print
  112. 1105 q=14:w=0:gosub20:print"files to be searched are..."
  113. 1110 ifasc(ff$)=13then1150
  114. 1120 ifff$="*"then950
  115. 1121 ifff$="1"then1140
  116. 1122 ifff$="2"then1140
  117. 1123 ifff$="3"then1140
  118. 1124 ifff$="4"then1140
  119. 1125 ifff$="5"then1140
  120. 1126 ifff$="6"then1140
  121. 1127 goto1100
  122. 1140 ff=val(ff$):ifss(ff)=1then1100
  123. 1141 ns=ns+1:ss(ff)=1:q=14+ns:w=0:gosub20:printsx$(ff)
  124. 1142 ifns>=6then1160
  125. 1144 goto1100
  126. 1150 ifns=0thenq=14:w=0:gosub20:print"you must choose a file      ":goto1100
  127. 1160 gosub100:goto1050
  128. 1170 printchr$(147):q=0:w=19:gosub20:print"list":printll$
  129. 1175 q=4:w=3:gosub20:print"[144]<*> - exit"
  130. 1180 q=6:w=4:gosub20:print"[144]1  - movie"
  131. 1182 q=7:w=4:gosub20:print"[144]2  - director"
  132. 1185 q=8:w=4:gosub20:print"[144]3  - actor"
  133. 1190 q=9:w=4:gosub20:print"[144]4  - actress"
  134. 1192 q=10:w=4:gosub20:print"[144]5  - supporting actor"
  135. 1195 q=11:w=4:gosub20:print"[144]6  - supporting actress"
  136. 1200 q=12:w=4:gosub20:print"[144]7  - all winners for a particular"
  137. 1204 q=13:w=9:gosub20:print"year"
  138. 1206 q=18:w=3:gosub20:print"choice?[160]";:poke198,0:wait198,1:getff$:printff$
  139. 1210 ifff$="*"then950
  140. 1212 ifff$="1"then1240
  141. 1214 ifff$="2"then1260
  142. 1216 ifff$="3"then1280
  143. 1218 ifff$="4"then1300
  144. 1220 ifff$="5"then1320
  145. 1222 ifff$="6"then1340
  146. 1224 ifff$="7"then1360
  147. 1225 goto1206
  148. 1240 xx$="movie":gosub40:yr=1927
  149. 1250 fori=1tonn:yr=yr+1:printyr": "movie$(i)
  150. 1252 ifi=19thengosub30:gosub40:goto1258
  151. 1254 ifi=37thengosub30:gosub40
  152. 1258 next:gosub30:goto1170
  153. 1260 xx$="director":gosub40:yr=1927
  154. 1270 fori=1tonn:yr=yr+1:printyr": "di$(i)
  155. 1272 ifi=8thengosub30:gosub40:goto1279
  156. 1273 ifi=55thengosub30:gosub40:goto1279
  157. 1274 ifi=16thengosub30:gosub40:goto1279
  158. 1275 ifi=24thengosub30:gosub40:goto1279
  159. 1276 ifi=32thengosub30:gosub40:goto1279
  160. 1277 ifi=40thengosub30:gosub40:goto1279
  161. 1278 ifi=48thengosub30:gosub40:goto1279
  162. 1279 next:gosub30:goto1170
  163. 1280 xx$="actor":gosub40:yr=1927
  164. 1290 fori=1tonn:yr=yr+1:printyr": "a1$(i)
  165. 1291 ifi=55thengosub30:gosub40:goto1298
  166. 1292 ifi=8thengosub30:gosub40:goto1298
  167. 1293 ifi=48thengosub30:gosub40:goto1298
  168. 1294 ifi=16thengosub30:gosub40:goto1298
  169. 1295 ifi=24thengosub30:gosub40:goto1298
  170. 1296 ifi=32thengosub30:gosub40:goto1298
  171. 1297 ifi=40thengosub30:gosub40
  172. 1298 next:goto1440
  173. 1300 xx$="actress":gosub40:yr=1927
  174. 1310 fori=1tonn:yr=yr+1:printyr": "a2$(i)
  175. 1311 ifi=8thengosub30:gosub40:goto1318
  176. 1312 ifi=16thengosub30:gosub40:goto1318
  177. 1313 ifi=24thengosub30:gosub40:goto1318
  178. 1314 ifi=32thengosub30:gosub40:goto1318
  179. 1315 ifi=40thengosub30:gosub40:goto1318
  180. 1316 ifi=48thengosub30:gosub40:goto1318
  181. 1317 ifi=55thengosub30:gosub40
  182. 1318 next:gosub30:goto1170
  183. 1320 xx$="supporting actor":gosub40:yr=1927
  184. 1330 fori=1tonn:yr=yr+1:printyr":  "s1$(i)
  185. 1331 ifi=8thengosub30:gosub40:goto1338
  186. 1332 ifi=16thengosub30:gosub40:goto1338
  187. 1333 ifi=24thengosub30:gosub40:goto1338
  188. 1334 ifi=32thengosub30:gosub40:goto1338
  189. 1335 ifi=40thengosub30:gosub40:goto1338
  190. 1336 ifi=48thengosub30:gosub40:goto1338
  191. 1337 ifi=55thengosub30:gosub40
  192. 1338 next:gosub30:goto1170
  193. 1340 xx$="supporting act